ZetaProducer.RuntimeBusinessLogic.Code.Scripting.InterpreterException

-----------------

Skript-Fehler:
---------------			  
Datenbank '' konnte nicht geöffnet werden. Entweder wird die Datenbank nicht von Ihrer Anwendung erkannt, oder die Datei ist beschädigt.
---------------			  
Zeile 589, Spalte 13.
---------------			  
Quelltext: 
001: option explicit
002: 
003: ExecuteScript
004: 
(...Versteckte Zeilen...)
367: 
368: 
369: 
370: public sub ExecuteScript()
371: 
372: 
373: dim article
374: set article = Context.Scope.CurrentPageItem
375: dim items
376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )
377: 
378: dim hassame
379: hassame = false
380: 
381: dim i
382: for i=0 to items.Count-1
383: dim item
384: set item = items(i)
385: 
386: if item.IsActive and (item.StyleName = "Bilderalbum" or item.StyleName = "Einzelnes Bild") then
387: 	if item.ID = article.ID  and not hassame then
388: 
389: 
390:     Context.Write "" & vbCrLf
391:     Context.Write "" & vbCrLf
392:     Context.Write ""
393: 
394:  if IsNothing(Context.Scope.CurrentTemplate.TemplateProject.TextTemplateManager.GetTextTemplate("ThickboxMod")) then
395: 
396:     Context.Write "" & vbCrLf
397:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/jquery.js""></script>" & vbCrLf
398:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_de.js""></script>" & vbCrLf
399:     Context.Write ""
400: 
401:  else 
402: 
403:     Context.Write "" & vbCrLf
404:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_mod_de.js""></script>" & vbCrLf
405:     Context.Write ""
406: 
407:  end if 
408: 
409:     Context.Write "" & vbCrLf
410:     Context.Write "" & vbCrLf
411:     Context.Write "<script type=""text/javascript"">" & vbCrLf
412:     Context.Write "document.getElementsByTagName(""body"")[0].style.height = ""100%"";" & vbCrLf
413:     Context.Write "document.getElementsByTagName(""html"")[0].style.height = ""100%"";" & vbCrLf
414:     Context.Write "document.getElementsByTagName(""body"")[0].style.minHeight = ""100%"";" & vbCrLf
415:     Context.Write "document.getElementsByTagName(""html"")[0].style.minHeight = ""100%"";" & vbCrLf
416:     Context.Write "</script>" & vbCrLf
417:     Context.Write ""
418: 
419: 	end if
420: hassame = true
421: end if
422: next
423: 
424: 
425:     Context.Write "" & vbCrLf
426:     Context.Write "<a name=""a1037""></a>" & vbCrLf
427:     Context.Write ""
428: 
429: 
430: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue("Album")
431: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("Breite der Vorschaubilder")
432: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)
433: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue("Anzahl Vorschaubilder pro Zeile")
434: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )
435: dim images : set images = assetCategory.Images 
436: dim rowIndex : dim colIndex : dim index
437: dim rowCount : rowCount = images.Count \ imagesPerRow
438: if images.Count mod imagesPerRow > 0 then 
439:     rowCount = rowCount + 1
440: end if
441: 
442: Context.Scope.Library.Log images.Count & " images..."
443: Context.Scope.Library.CheckAsyncStopProcessing
444: 
445: ' Must use a prefix to allow multiple instances of the JavaScript on the page.
446: dim prefix
447: prefix = "prefix_1037_"
448: 
449: 
450:     Context.Write "" & vbCrLf
451:     Context.Write "<a name="""
452: 
453: Context.Write prefix
454: 
455:     Context.Write "thumbnails""></a>" & vbCrLf
456:     Context.Write "<div class=""articlearea"">" & vbCrLf
457:     Context.Write ""
458: 
459:  if Context.Scope.CurrentArticle.Name <> "" then 
460: 
461:     Context.Write "<h1>"
462: 
463: Context.Write Context.Scope.CurrentArticle.Name
464: 
465:     Context.Write "</h1>"
466: 
467:  end if 
468: 
469:     Context.Write "" & vbCrLf
470:     Context.Write "<script type=""text/javascript"">" & vbCrLf
471:     Context.Write "var "
472: 
473: Context.Write prefix
474: 
475:     Context.Write "currentIndex = 0;" & vbCrLf
476:     Context.Write "" & vbCrLf
477:     Context.Write "var "
478: 
479: Context.Write prefix
480: 
481:     Context.Write "g = new Array();" & vbCrLf
482:     Context.Write "var "
483: 
484: Context.Write prefix
485: 
486:     Context.Write "t = new Array();" & vbCrLf
487:     Context.Write "" & vbCrLf
488:     Context.Write ""
489: 
490: 
491: for index=0 to images.Count-1
492: 
493:     dim image
494:     set image = images.Item(index)
495: 
496:     Context.Scope.Library.CheckAsyncStopProcessing
497: 
498: 
499:     Context.Write "" & vbCrLf
500:     Context.Write "    "
501: 
502: Context.Write prefix
503: 
504:     Context.Write "g["
505: 
506: Context.Write index
507: 
508:     Context.Write "] = """
509: 
510: Context.Write image.VirtualPathRelative
511: 
512:     Context.Write """; " & vbCrLf
513:     Context.Write "    "
514: 
515: Context.Write prefix
516: 
517:     Context.Write "t["
518: 
519: Context.Write index
520: 
521:     Context.Write "] = """
522: 
523: Context.Write image.Name
524: 
525:     Context.Write """;" & vbCrLf
526:     Context.Write ""
527: 
528: next
529: 
530:     Context.Write "" & vbCrLf
531:     Context.Write "" & vbCrLf
532:     Context.Write "function "
533: 
534: Context.Write prefix
535: 
536:     Context.Write "setimage( index )" & vbCrLf
537:     Context.Write "{" & vbCrLf
538:     Context.Write "    var img = new Image();" & vbCrLf
539:     Context.Write "    img.src = "
540: 
541: Context.Write prefix
542: 
543:     Context.Write "g[index];" & vbCrLf
544:     Context.Write "    window.document.images["""
545: 
546: Context.Write prefix
547: 
548:     Context.Write "pic""].src = img.src;" & vbCrLf
549:     Context.Write "    document.getElementById("""
550: 
551: Context.Write prefix
552: 
553:     Context.Write "desc"").innerHTML = "
554: 
555: Context.Write prefix
556: 
557:     Context.Write "t[index];" & vbCrLf
558:     Context.Write "    "
559: 
560: Context.Write prefix
561: 
562:     Context.Write "currentIndex = index;" & vbCrLf
563:     Context.Write "}" & vbCrLf
564:     Context.Write "</script>" & vbCrLf
565:     Context.Write "<table class=""zpSO-PictureGallery"" cellpadding=""0"" cellspacing=""9"" border=""0"">" & vbCrLf
566:     Context.Write ""
567: 
568: 
569: ' -- Build the thumbnails grid.
570: index = 0
571: for rowIndex = 0 to rowCount-1
572: 
573: 
574:     Context.Write "" & vbCrLf
575:     Context.Write "<tr>" & vbCrLf
576:     Context.Write "    "
577: 
578: 
579:     for colIndex = 0 to imagesPerRow-1
580:     
581: 
582:     Context.Write "" & vbCrLf
583:     Context.Write "        "
584: 
585: 
586:         if index<=images.Count-1 then
587:             set image = images.Item(index)
588: 					
589:             if image.CheckCreateThumbnail( thumbnailWidth ) then
590:               Context.Scope.Library.Log "Erstelle Vorschaubild " & image.Name
591:             else
592:               Context.Scope.Library.CheckAsyncStopProcessing
593:             end if
594:         
595: 
596:     Context.Write "" & vbCrLf
597:     Context.Write "            <td class=""zpSO-PictureGallery-ThickBox-td1"" style=""text-align:center;vertical-align:top"">" & vbCrLf
598:     Context.Write "            " & vbTab & "<a href="""
599: 
600: Context.Write image.VirtualPathRelative
601: 
602:     Context.Write """ title="""
603: 
604: Context.Write image.Description
605: 
606:     Context.Write """ class=""thickbox"" rel=""gallery"
607: 
608: Context.Write article.ID
609: 
610:     Context.Write """>" & vbCrLf
611:     Context.Write "            " & vbTab & "" & vbTab & "<span style=""display:block;margin:0;padding:0;width:"
612: 
613: Context.Write thumbnailWidth
614: 
615:     Context.Write "px;height:"
616: 
617: Context.Write thumbnailHeight
618: 
619:     Context.Write "px;overflow:hidden;cursor:pointer"">" & vbCrLf
620:     Context.Write "            " & vbTab & "" & vbTab & "" & vbTab & "<img src="""
621: 
622: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )
623: 
624:     Context.Write """ border=""0"" alt="""" />" & vbCrLf
625:     Context.Write "            " & vbTab & "" & vbTab & "</span>" & vbCrLf
626:     Context.Write "            " & vbTab & "</a>" & vbCrLf
627:     Context.Write "                "
628: 
629:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then 
630: 
631:     Context.Write "" & vbCrLf
632:     Context.Write "                " & vbTab & "<span class=""bildunterschrift"">" & vbCrLf
633:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
634: 
635:  if Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 then 
636: 
637:     Context.Write "<span class=""zpSO-PictureGallery-number"">"
638: 
639: Context.Write index+1
640: 
641:     Context.Write "</span>"
642: 
643:  end if 
644: 
645:     Context.Write "" & vbCrLf
646:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
647: 
648:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
649: 
650:     Context.Write "<span class=""zpSO-PictureGallery-name"">"
651: 
652: Context.Write image.Name
653: 
654:     Context.Write "</span>"
655: 
656:  end if 
657: 
658:     Context.Write "" & vbCrLf
659:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
660: 
661:  if Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then 
662: 
663:     Context.Write "" & vbCrLf
664:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
665: 
666:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
667: 
668:     Context.Write "<br />"
669: 
670:  end if 
671: 
672:     Context.Write "<span class=""zpSO-PictureGallery-desc"">"
673: 
674: Context.Write image.Description
675: 
676:     Context.Write "</span>" & vbCrLf
677:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
678: 
679:  end if 
680: 
681:     Context.Write "" & vbCrLf
682:     Context.Write "                " & vbTab & "</span>" & vbCrLf
683:     Context.Write "                "
684: 
685:  end if 
686: 
687:     Context.Write "" & vbCrLf
688:     Context.Write "            </td>" & vbCrLf
689:     Context.Write "        "
690: 
691: else
692: 
693:     Context.Write "" & vbCrLf
694:     Context.Write "            <td class=""zpSO-PictureGallery-ThickBox-td2"" style=""vertical-align:top"">&nbsp;</td>" & vbCrLf
695:     Context.Write "        "
696: 
697: end if
698: 
699:     Context.Write "" & vbCrLf
700:     Context.Write "    "
701: 
702: 
703:         index = index + 1
704:     next
705:     
706: 
707:     Context.Write "" & vbCrLf
708:     Context.Write "</tr>" & vbCrLf
709:     Context.Write ""
710: 
711: next
712: 
713:     Context.Write "" & vbCrLf
714:     Context.Write "</table>" & vbCrLf
715:     Context.Write "</div>" & vbCrLf
716:     Context.Write ""
717: 
718: end sub
719:

-----------------

bei ZetaProducer.RuntimeBusinessLogic.Code.Scripting.BaseInterpreter.Run()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.FormatGridItem()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderMacrosBase.Process(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderDispatcher.doProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.renderArticle(IWorkflowEnabledItem article)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.buildArticleFullText(WebPageItem article)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.getFullText(WebPageItem article)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.generateRssDocument()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.CreateRss()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderEngine.createRss(WebPage page, VersioningVersion versioningVersion, TemplateProject templateProject)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)
   bei ZetaProducer.Main.UI.BuildPublish.Simple.SimpleBuildPublishForm.doWorkBuild(Object sender, DoWorkEventArgs e)
   bei ZetaProducer.Main.UI.BuildPublish.Common.AsyncRenderGuiBinder._bw_DoWork(Object sender, DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)

InterpreterException
{
	Message="Skript-Fehler:\\r\\n---------------\\t\\t\\t  \\r\\nDatenbank \\'\\' konnte nicht geöffnet werden. Entweder wird die Datenbank nicht von Ihrer Anwendung erkannt, oder die Datei ist beschädigt.\\r\\n---------------\\t\\t\\t  \\r\\nZeile 589, Spalte 13.\\r\\n---------------\\t\\t\\t  \\r\\nQuelltext: \\r\\n001: option explicit\\r\\n002: \\r\\n003: ExecuteScript\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n367: \\r\\n368: \\r\\n369: \\r\\n370: public sub ExecuteScript()\\r\\n371: \\r\\n372: \\r\\n373: dim article\\r\\n374: set article = Context.Scope.CurrentPageItem\\r\\n375: dim items\\r\\n376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )\\r\\n377: \\r\\n378: dim hassame\\r\\n379: hassame = false\\r\\n380: \\r\\n381: dim i\\r\\n382: for i=0 to items.Count-1\\r\\n383: dim item\\r\\n384: set item = items(i)\\r\\n385: \\r\\n386: if item.IsActive and (item.StyleName = \\"Bilderalbum\\" or item.StyleName = \\"Einzelnes Bild\\") then\\r\\n387: \\tif item.ID = article.ID  and not hassame then\\r\\n388: \\r\\n389: \\r\\n390:     Context.Write \\"\\" & vbCrLf\\r\\n391:     Context.Write \\"\\" & vbCrLf\\r\\n392:     Context.Write \\"\\"\\r\\n393: \\r\\n394:  if IsNothing(Context.Scope.CurrentTemplate.TemplateProject.TextTemplateManager.GetTextTemplate(\\"ThickboxMod\\")) then\\r\\n395: \\r\\n396:     Context.Write \\"\\" & vbCrLf\\r\\n397:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/jquery.js\\"\\"></script>\\" & vbCrLf\\r\\n398:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_de.js\\"\\"></script>\\" & vbCrLf\\r\\n399:     Context.Write \\"\\"\\r\\n400: \\r\\n401:  else \\r\\n402: \\r\\n403:     Context.Write \\"\\" & vbCrLf\\r\\n404:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_mod_de.js\\"\\"></script>\\" & vbCrLf\\r\\n405:     Context.Write \\"\\"\\r\\n406: \\r\\n407:  end if \\r\\n408: \\r\\n409:     Context.Write \\"\\" & vbCrLf\\r\\n410:     Context.Write \\"\\" & vbCrLf\\r\\n411:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n412:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n413:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n414:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n415:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n416:     Context.Write \\"</script>\\" & vbCrLf\\r\\n417:     Context.Write \\"\\"\\r\\n418: \\r\\n419: \\tend if\\r\\n420: hassame = true\\r\\n421: end if\\r\\n422: next\\r\\n423: \\r\\n424: \\r\\n425:     Context.Write \\"\\" & vbCrLf\\r\\n426:     Context.Write \\"<a name=\\"\\"a1037\\"\\"></a>\\" & vbCrLf\\r\\n427:     Context.Write \\"\\"\\r\\n428: \\r\\n429: \\r\\n430: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue(\\"Album\\")\\r\\n431: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n432: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)\\r\\n433: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue(\\"Anzahl Vorschaubilder pro Zeile\\")\\r\\n434: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )\\r\\n435: dim images : set images = assetCategory.Images \\r\\n436: dim rowIndex : dim colIndex : dim index\\r\\n437: dim rowCount : rowCount = images.Count \\ imagesPerRow\\r\\n438: if images.Count mod imagesPerRow > 0 then \\r\\n439:     rowCount = rowCount + 1\\r\\n440: end if\\r\\n441: \\r\\n442: Context.Scope.Library.Log images.Count & \\" images...\\"\\r\\n443: Context.Scope.Library.CheckAsyncStopProcessing\\r\\n444: \\r\\n445: \\' Must use a prefix to allow multiple instances of the JavaScript on the page.\\r\\n446: dim prefix\\r\\n447: prefix = \\"prefix_1037_\\"\\r\\n448: \\r\\n449: \\r\\n450:     Context.Write \\"\\" & vbCrLf\\r\\n451:     Context.Write \\"<a name=\\"\\"\\"\\r\\n452: \\r\\n453: Context.Write prefix\\r\\n454: \\r\\n455:     Context.Write \\"thumbnails\\"\\"></a>\\" & vbCrLf\\r\\n456:     Context.Write \\"<div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n457:     Context.Write \\"\\"\\r\\n458: \\r\\n459:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n460: \\r\\n461:     Context.Write \\"<h1>\\"\\r\\n462: \\r\\n463: Context.Write Context.Scope.CurrentArticle.Name\\r\\n464: \\r\\n465:     Context.Write \\"</h1>\\"\\r\\n466: \\r\\n467:  end if \\r\\n468: \\r\\n469:     Context.Write \\"\\" & vbCrLf\\r\\n470:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n471:     Context.Write \\"var \\"\\r\\n472: \\r\\n473: Context.Write prefix\\r\\n474: \\r\\n475:     Context.Write \\"currentIndex = 0;\\" & vbCrLf\\r\\n476:     Context.Write \\"\\" & vbCrLf\\r\\n477:     Context.Write \\"var \\"\\r\\n478: \\r\\n479: Context.Write prefix\\r\\n480: \\r\\n481:     Context.Write \\"g = new Array();\\" & vbCrLf\\r\\n482:     Context.Write \\"var \\"\\r\\n483: \\r\\n484: Context.Write prefix\\r\\n485: \\r\\n486:     Context.Write \\"t = new Array();\\" & vbCrLf\\r\\n487:     Context.Write \\"\\" & vbCrLf\\r\\n488:     Context.Write \\"\\"\\r\\n489: \\r\\n490: \\r\\n491: for index=0 to images.Count-1\\r\\n492: \\r\\n493:     dim image\\r\\n494:     set image = images.Item(index)\\r\\n495: \\r\\n496:     Context.Scope.Library.CheckAsyncStopProcessing\\r\\n497: \\r\\n498: \\r\\n499:     Context.Write \\"\\" & vbCrLf\\r\\n500:     Context.Write \\"    \\"\\r\\n501: \\r\\n502: Context.Write prefix\\r\\n503: \\r\\n504:     Context.Write \\"g[\\"\\r\\n505: \\r\\n506: Context.Write index\\r\\n507: \\r\\n508:     Context.Write \\"] = \\"\\"\\"\\r\\n509: \\r\\n510: Context.Write image.VirtualPathRelative\\r\\n511: \\r\\n512:     Context.Write \\"\\"\\"; \\" & vbCrLf\\r\\n513:     Context.Write \\"    \\"\\r\\n514: \\r\\n515: Context.Write prefix\\r\\n516: \\r\\n517:     Context.Write \\"t[\\"\\r\\n518: \\r\\n519: Context.Write index\\r\\n520: \\r\\n521:     Context.Write \\"] = \\"\\"\\"\\r\\n522: \\r\\n523: Context.Write image.Name\\r\\n524: \\r\\n525:     Context.Write \\"\\"\\";\\" & vbCrLf\\r\\n526:     Context.Write \\"\\"\\r\\n527: \\r\\n528: next\\r\\n529: \\r\\n530:     Context.Write \\"\\" & vbCrLf\\r\\n531:     Context.Write \\"\\" & vbCrLf\\r\\n532:     Context.Write \\"function \\"\\r\\n533: \\r\\n534: Context.Write prefix\\r\\n535: \\r\\n536:     Context.Write \\"setimage( index )\\" & vbCrLf\\r\\n537:     Context.Write \\"{\\" & vbCrLf\\r\\n538:     Context.Write \\"    var img = new Image();\\" & vbCrLf\\r\\n539:     Context.Write \\"    img.src = \\"\\r\\n540: \\r\\n541: Context.Write prefix\\r\\n542: \\r\\n543:     Context.Write \\"g[index];\\" & vbCrLf\\r\\n544:     Context.Write \\"    window.document.images[\\"\\"\\"\\r\\n545: \\r\\n546: Context.Write prefix\\r\\n547: \\r\\n548:     Context.Write \\"pic\\"\\"].src = img.src;\\" & vbCrLf\\r\\n549:     Context.Write \\"    document.getElementById(\\"\\"\\"\\r\\n550: \\r\\n551: Context.Write prefix\\r\\n552: \\r\\n553:     Context.Write \\"desc\\"\\").innerHTML = \\"\\r\\n554: \\r\\n555: Context.Write prefix\\r\\n556: \\r\\n557:     Context.Write \\"t[index];\\" & vbCrLf\\r\\n558:     Context.Write \\"    \\"\\r\\n559: \\r\\n560: Context.Write prefix\\r\\n561: \\r\\n562:     Context.Write \\"currentIndex = index;\\" & vbCrLf\\r\\n563:     Context.Write \\"}\\" & vbCrLf\\r\\n564:     Context.Write \\"</script>\\" & vbCrLf\\r\\n565:     Context.Write \\"<table class=\\"\\"zpSO-PictureGallery\\"\\" cellpadding=\\"\\"0\\"\\" cellspacing=\\"\\"9\\"\\" border=\\"\\"0\\"\\">\\" & vbCrLf\\r\\n566:     Context.Write \\"\\"\\r\\n567: \\r\\n568: \\r\\n569: \\' -- Build the thumbnails grid.\\r\\n570: index = 0\\r\\n571: for rowIndex = 0 to rowCount-1\\r\\n572: \\r\\n573: \\r\\n574:     Context.Write \\"\\" & vbCrLf\\r\\n575:     Context.Write \\"<tr>\\" & vbCrLf\\r\\n576:     Context.Write \\"    \\"\\r\\n577: \\r\\n578: \\r\\n579:     for colIndex = 0 to imagesPerRow-1\\r\\n580:     \\r\\n581: \\r\\n582:     Context.Write \\"\\" & vbCrLf\\r\\n583:     Context.Write \\"        \\"\\r\\n584: \\r\\n585: \\r\\n586:         if index<=images.Count-1 then\\r\\n587:             set image = images.Item(index)\\r\\n588: \\t\\t\\t\\t\\t\\r\\n589:             if image.CheckCreateThumbnail( thumbnailWidth ) then\\r\\n590:               Context.Scope.Library.Log \\"Erstelle Vorschaubild \\" & image.Name\\r\\n591:             else\\r\\n592:               Context.Scope.Library.CheckAsyncStopProcessing\\r\\n593:             end if\\r\\n594:         \\r\\n595: \\r\\n596:     Context.Write \\"\\" & vbCrLf\\r\\n597:     Context.Write \\"            <td class=\\"\\"zpSO-PictureGallery-ThickBox-td1\\"\\" style=\\"\\"text-align:center;vertical-align:top\\"\\">\\" & vbCrLf\\r\\n598:     Context.Write \\"            \\" & vbTab & \\"<a href=\\"\\"\\"\\r\\n599: \\r\\n600: Context.Write image.VirtualPathRelative\\r\\n601: \\r\\n602:     Context.Write \\"\\"\\" title=\\"\\"\\"\\r\\n603: \\r\\n604: Context.Write image.Description\\r\\n605: \\r\\n606:     Context.Write \\"\\"\\" class=\\"\\"thickbox\\"\\" rel=\\"\\"gallery\\"\\r\\n607: \\r\\n608: Context.Write article.ID\\r\\n609: \\r\\n610:     Context.Write \\"\\"\\">\\" & vbCrLf\\r\\n611:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"<span style=\\"\\"display:block;margin:0;padding:0;width:\\"\\r\\n612: \\r\\n613: Context.Write thumbnailWidth\\r\\n614: \\r\\n615:     Context.Write \\"px;height:\\"\\r\\n616: \\r\\n617: Context.Write thumbnailHeight\\r\\n618: \\r\\n619:     Context.Write \\"px;overflow:hidden;cursor:pointer\\"\\">\\" & vbCrLf\\r\\n620:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<img src=\\"\\"\\"\\r\\n621: \\r\\n622: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )\\r\\n623: \\r\\n624:     Context.Write \\"\\"\\" border=\\"\\"0\\"\\" alt=\\"\\"\\"\\" />\\" & vbCrLf\\r\\n625:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"</span>\\" & vbCrLf\\r\\n626:     Context.Write \\"            \\" & vbTab & \\"</a>\\" & vbCrLf\\r\\n627:     Context.Write \\"                \\"\\r\\n628: \\r\\n629:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n630: \\r\\n631:     Context.Write \\"\\" & vbCrLf\\r\\n632:     Context.Write \\"                \\" & vbTab & \\"<span class=\\"\\"bildunterschrift\\"\\">\\" & vbCrLf\\r\\n633:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n634: \\r\\n635:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 then \\r\\n636: \\r\\n637:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-number\\"\\">\\"\\r\\n638: \\r\\n639: Context.Write index+1\\r\\n640: \\r\\n641:     Context.Write \\"</span>\\"\\r\\n642: \\r\\n643:  end if \\r\\n644: \\r\\n645:     Context.Write \\"\\" & vbCrLf\\r\\n646:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n647: \\r\\n648:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n649: \\r\\n650:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-name\\"\\">\\"\\r\\n651: \\r\\n652: Context.Write image.Name\\r\\n653: \\r\\n654:     Context.Write \\"</span>\\"\\r\\n655: \\r\\n656:  end if \\r\\n657: \\r\\n658:     Context.Write \\"\\" & vbCrLf\\r\\n659:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n660: \\r\\n661:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n662: \\r\\n663:     Context.Write \\"\\" & vbCrLf\\r\\n664:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n665: \\r\\n666:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n667: \\r\\n668:     Context.Write \\"<br />\\"\\r\\n669: \\r\\n670:  end if \\r\\n671: \\r\\n672:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-desc\\"\\">\\"\\r\\n673: \\r\\n674: Context.Write image.Description\\r\\n675: \\r\\n676:     Context.Write \\"</span>\\" & vbCrLf\\r\\n677:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n678: \\r\\n679:  end if \\r\\n680: \\r\\n681:     Context.Write \\"\\" & vbCrLf\\r\\n682:     Context.Write \\"                \\" & vbTab & \\"</span>\\" & vbCrLf\\r\\n683:     Context.Write \\"                \\"\\r\\n684: \\r\\n685:  end if \\r\\n686: \\r\\n687:     Context.Write \\"\\" & vbCrLf\\r\\n688:     Context.Write \\"            </td>\\" & vbCrLf\\r\\n689:     Context.Write \\"        \\"\\r\\n690: \\r\\n691: else\\r\\n692: \\r\\n693:     Context.Write \\"\\" & vbCrLf\\r\\n694:     Context.Write \\"            <td class=\\"\\"zpSO-PictureGallery-ThickBox-td2\\"\\" style=\\"\\"vertical-align:top\\"\\">&nbsp;</td>\\" & vbCrLf\\r\\n695:     Context.Write \\"        \\"\\r\\n696: \\r\\n697: end if\\r\\n698: \\r\\n699:     Context.Write \\"\\" & vbCrLf\\r\\n700:     Context.Write \\"    \\"\\r\\n701: \\r\\n702: \\r\\n703:         index = index + 1\\r\\n704:     next\\r\\n705:     \\r\\n706: \\r\\n707:     Context.Write \\"\\" & vbCrLf\\r\\n708:     Context.Write \\"</tr>\\" & vbCrLf\\r\\n709:     Context.Write \\"\\"\\r\\n710: \\r\\n711: next\\r\\n712: \\r\\n713:     Context.Write \\"\\" & vbCrLf\\r\\n714:     Context.Write \\"</table>\\" & vbCrLf\\r\\n715:     Context.Write \\"</div>\\" & vbCrLf\\r\\n716:     Context.Write \\"\\"\\r\\n717: \\r\\n718: end sub\\r\\n719: \\r\\n",
	CompleteSourceText="001: option explicit\\r\\n002: \\r\\n003: ExecuteScript\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n367: \\r\\n368: \\r\\n369: \\r\\n370: public sub ExecuteScript()\\r\\n371: \\r\\n372: \\r\\n373: dim article\\r\\n374: set article = Context.Scope.CurrentPageItem\\r\\n375: dim items\\r\\n376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )\\r\\n377: \\r\\n378: dim hassame\\r\\n379: hassame = false\\r\\n380: \\r\\n381: dim i\\r\\n382: for i=0 to items.Count-1\\r\\n383: dim item\\r\\n384: set item = items(i)\\r\\n385: \\r\\n386: if item.IsActive and (item.StyleName = \\"Bilderalbum\\" or item.StyleName = \\"Einzelnes Bild\\") then\\r\\n387: \\tif item.ID = article.ID  and not hassame then\\r\\n388: \\r\\n389: \\r\\n390:     Context.Write \\"\\" & vbCrLf\\r\\n391:     Context.Write \\"\\" & vbCrLf\\r\\n392:     Context.Write \\"\\"\\r\\n393: \\r\\n394:  if IsNothing(Context.Scope.CurrentTemplate.TemplateProject.TextTemplateManager.GetTextTemplate(\\"ThickboxMod\\")) then\\r\\n395: \\r\\n396:     Context.Write \\"\\" & vbCrLf\\r\\n397:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/jquery.js\\"\\"></script>\\" & vbCrLf\\r\\n398:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_de.js\\"\\"></script>\\" & vbCrLf\\r\\n399:     Context.Write \\"\\"\\r\\n400: \\r\\n401:  else \\r\\n402: \\r\\n403:     Context.Write \\"\\" & vbCrLf\\r\\n404:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_mod_de.js\\"\\"></script>\\" & vbCrLf\\r\\n405:     Context.Write \\"\\"\\r\\n406: \\r\\n407:  end if \\r\\n408: \\r\\n409:     Context.Write \\"\\" & vbCrLf\\r\\n410:     Context.Write \\"\\" & vbCrLf\\r\\n411:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n412:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n413:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n414:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n415:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n416:     Context.Write \\"</script>\\" & vbCrLf\\r\\n417:     Context.Write \\"\\"\\r\\n418: \\r\\n419: \\tend if\\r\\n420: hassame = true\\r\\n421: end if\\r\\n422: next\\r\\n423: \\r\\n424: \\r\\n425:     Context.Write \\"\\" & vbCrLf\\r\\n426:     Context.Write \\"<a name=\\"\\"a1037\\"\\"></a>\\" & vbCrLf\\r\\n427:     Context.Write \\"\\"\\r\\n428: \\r\\n429: \\r\\n430: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue(\\"Album\\")\\r\\n431: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n432: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)\\r\\n433: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue(\\"Anzahl Vorschaubilder pro Zeile\\")\\r\\n434: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )\\r\\n435: dim images : set images = assetCategory.Images \\r\\n436: dim rowIndex : dim colIndex : dim index\\r\\n437: dim rowCount : rowCount = images.Count \\ imagesPerRow\\r\\n438: if images.Count mod imagesPerRow > 0 then \\r\\n439:     rowCount = rowCount + 1\\r\\n440: end if\\r\\n441: \\r\\n442: Context.Scope.Library.Log images.Count & \\" images...\\"\\r\\n443: Context.Scope.Library.CheckAsyncStopProcessing\\r\\n444: \\r\\n445: \\' Must use a prefix to allow multiple instances of the JavaScript on the page.\\r\\n446: dim prefix\\r\\n447: prefix = \\"prefix_1037_\\"\\r\\n448: \\r\\n449: \\r\\n450:     Context.Write \\"\\" & vbCrLf\\r\\n451:     Context.Write \\"<a name=\\"\\"\\"\\r\\n452: \\r\\n453: Context.Write prefix\\r\\n454: \\r\\n455:     Context.Write \\"thumbnails\\"\\"></a>\\" & vbCrLf\\r\\n456:     Context.Write \\"<div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n457:     Context.Write \\"\\"\\r\\n458: \\r\\n459:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n460: \\r\\n461:     Context.Write \\"<h1>\\"\\r\\n462: \\r\\n463: Context.Write Context.Scope.CurrentArticle.Name\\r\\n464: \\r\\n465:     Context.Write \\"</h1>\\"\\r\\n466: \\r\\n467:  end if \\r\\n468: \\r\\n469:     Context.Write \\"\\" & vbCrLf\\r\\n470:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n471:     Context.Write \\"var \\"\\r\\n472: \\r\\n473: Context.Write prefix\\r\\n474: \\r\\n475:     Context.Write \\"currentIndex = 0;\\" & vbCrLf\\r\\n476:     Context.Write \\"\\" & vbCrLf\\r\\n477:     Context.Write \\"var \\"\\r\\n478: \\r\\n479: Context.Write prefix\\r\\n480: \\r\\n481:     Context.Write \\"g = new Array();\\" & vbCrLf\\r\\n482:     Context.Write \\"var \\"\\r\\n483: \\r\\n484: Context.Write prefix\\r\\n485: \\r\\n486:     Context.Write \\"t = new Array();\\" & vbCrLf\\r\\n487:     Context.Write \\"\\" & vbCrLf\\r\\n488:     Context.Write \\"\\"\\r\\n489: \\r\\n490: \\r\\n491: for index=0 to images.Count-1\\r\\n492: \\r\\n493:     dim image\\r\\n494:     set image = images.Item(index)\\r\\n495: \\r\\n496:     Context.Scope.Library.CheckAsyncStopProcessing\\r\\n497: \\r\\n498: \\r\\n499:     Context.Write \\"\\" & vbCrLf\\r\\n500:     Context.Write \\"    \\"\\r\\n501: \\r\\n502: Context.Write prefix\\r\\n503: \\r\\n504:     Context.Write \\"g[\\"\\r\\n505: \\r\\n506: Context.Write index\\r\\n507: \\r\\n508:     Context.Write \\"] = \\"\\"\\"\\r\\n509: \\r\\n510: Context.Write image.VirtualPathRelative\\r\\n511: \\r\\n512:     Context.Write \\"\\"\\"; \\" & vbCrLf\\r\\n513:     Context.Write \\"    \\"\\r\\n514: \\r\\n515: Context.Write prefix\\r\\n516: \\r\\n517:     Context.Write \\"t[\\"\\r\\n518: \\r\\n519: Context.Write index\\r\\n520: \\r\\n521:     Context.Write \\"] = \\"\\"\\"\\r\\n522: \\r\\n523: Context.Write image.Name\\r\\n524: \\r\\n525:     Context.Write \\"\\"\\";\\" & vbCrLf\\r\\n526:     Context.Write \\"\\"\\r\\n527: \\r\\n528: next\\r\\n529: \\r\\n530:     Context.Write \\"\\" & vbCrLf\\r\\n531:     Context.Write \\"\\" & vbCrLf\\r\\n532:     Context.Write \\"function \\"\\r\\n533: \\r\\n534: Context.Write prefix\\r\\n535: \\r\\n536:     Context.Write \\"setimage( index )\\" & vbCrLf\\r\\n537:     Context.Write \\"{\\" & vbCrLf\\r\\n538:     Context.Write \\"    var img = new Image();\\" & vbCrLf\\r\\n539:     Context.Write \\"    img.src = \\"\\r\\n540: \\r\\n541: Context.Write prefix\\r\\n542: \\r\\n543:     Context.Write \\"g[index];\\" & vbCrLf\\r\\n544:     Context.Write \\"    window.document.images[\\"\\"\\"\\r\\n545: \\r\\n546: Context.Write prefix\\r\\n547: \\r\\n548:     Context.Write \\"pic\\"\\"].src = img.src;\\" & vbCrLf\\r\\n549:     Context.Write \\"    document.getElementById(\\"\\"\\"\\r\\n550: \\r\\n551: Context.Write prefix\\r\\n552: \\r\\n553:     Context.Write \\"desc\\"\\").innerHTML = \\"\\r\\n554: \\r\\n555: Context.Write prefix\\r\\n556: \\r\\n557:     Context.Write \\"t[index];\\" & vbCrLf\\r\\n558:     Context.Write \\"    \\"\\r\\n559: \\r\\n560: Context.Write prefix\\r\\n561: \\r\\n562:     Context.Write \\"currentIndex = index;\\" & vbCrLf\\r\\n563:     Context.Write \\"}\\" & vbCrLf\\r\\n564:     Context.Write \\"</script>\\" & vbCrLf\\r\\n565:     Context.Write \\"<table class=\\"\\"zpSO-PictureGallery\\"\\" cellpadding=\\"\\"0\\"\\" cellspacing=\\"\\"9\\"\\" border=\\"\\"0\\"\\">\\" & vbCrLf\\r\\n566:     Context.Write \\"\\"\\r\\n567: \\r\\n568: \\r\\n569: \\' -- Build the thumbnails grid.\\r\\n570: index = 0\\r\\n571: for rowIndex = 0 to rowCount-1\\r\\n572: \\r\\n573: \\r\\n574:     Context.Write \\"\\" & vbCrLf\\r\\n575:     Context.Write \\"<tr>\\" & vbCrLf\\r\\n576:     Context.Write \\"    \\"\\r\\n577: \\r\\n578: \\r\\n579:     for colIndex = 0 to imagesPerRow-1\\r\\n580:     \\r\\n581: \\r\\n582:     Context.Write \\"\\" & vbCrLf\\r\\n583:     Context.Write \\"        \\"\\r\\n584: \\r\\n585: \\r\\n586:         if index<=images.Count-1 then\\r\\n587:             set image = images.Item(index)\\r\\n588: \\t\\t\\t\\t\\t\\r\\n589:             if image.CheckCreateThumbnail( thumbnailWidth ) then\\r\\n590:               Context.Scope.Library.Log \\"Erstelle Vorschaubild \\" & image.Name\\r\\n591:             else\\r\\n592:               Context.Scope.Library.CheckAsyncStopProcessing\\r\\n593:             end if\\r\\n594:         \\r\\n595: \\r\\n596:     Context.Write \\"\\" & vbCrLf\\r\\n597:     Context.Write \\"            <td class=\\"\\"zpSO-PictureGallery-ThickBox-td1\\"\\" style=\\"\\"text-align:center;vertical-align:top\\"\\">\\" & vbCrLf\\r\\n598:     Context.Write \\"            \\" & vbTab & \\"<a href=\\"\\"\\"\\r\\n599: \\r\\n600: Context.Write image.VirtualPathRelative\\r\\n601: \\r\\n602:     Context.Write \\"\\"\\" title=\\"\\"\\"\\r\\n603: \\r\\n604: Context.Write image.Description\\r\\n605: \\r\\n606:     Context.Write \\"\\"\\" class=\\"\\"thickbox\\"\\" rel=\\"\\"gallery\\"\\r\\n607: \\r\\n608: Context.Write article.ID\\r\\n609: \\r\\n610:     Context.Write \\"\\"\\">\\" & vbCrLf\\r\\n611:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"<span style=\\"\\"display:block;margin:0;padding:0;width:\\"\\r\\n612: \\r\\n613: Context.Write thumbnailWidth\\r\\n614: \\r\\n615:     Context.Write \\"px;height:\\"\\r\\n616: \\r\\n617: Context.Write thumbnailHeight\\r\\n618: \\r\\n619:     Context.Write \\"px;overflow:hidden;cursor:pointer\\"\\">\\" & vbCrLf\\r\\n620:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<img src=\\"\\"\\"\\r\\n621: \\r\\n622: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )\\r\\n623: \\r\\n624:     Context.Write \\"\\"\\" border=\\"\\"0\\"\\" alt=\\"\\"\\"\\" />\\" & vbCrLf\\r\\n625:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"</span>\\" & vbCrLf\\r\\n626:     Context.Write \\"            \\" & vbTab & \\"</a>\\" & vbCrLf\\r\\n627:     Context.Write \\"                \\"\\r\\n628: \\r\\n629:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n630: \\r\\n631:     Context.Write \\"\\" & vbCrLf\\r\\n632:     Context.Write \\"                \\" & vbTab & \\"<span class=\\"\\"bildunterschrift\\"\\">\\" & vbCrLf\\r\\n633:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n634: \\r\\n635:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 then \\r\\n636: \\r\\n637:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-number\\"\\">\\"\\r\\n638: \\r\\n639: Context.Write index+1\\r\\n640: \\r\\n641:     Context.Write \\"</span>\\"\\r\\n642: \\r\\n643:  end if \\r\\n644: \\r\\n645:     Context.Write \\"\\" & vbCrLf\\r\\n646:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n647: \\r\\n648:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n649: \\r\\n650:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-name\\"\\">\\"\\r\\n651: \\r\\n652: Context.Write image.Name\\r\\n653: \\r\\n654:     Context.Write \\"</span>\\"\\r\\n655: \\r\\n656:  end if \\r\\n657: \\r\\n658:     Context.Write \\"\\" & vbCrLf\\r\\n659:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n660: \\r\\n661:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n662: \\r\\n663:     Context.Write \\"\\" & vbCrLf\\r\\n664:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n665: \\r\\n666:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n667: \\r\\n668:     Context.Write \\"<br />\\"\\r\\n669: \\r\\n670:  end if \\r\\n671: \\r\\n672:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-desc\\"\\">\\"\\r\\n673: \\r\\n674: Context.Write image.Description\\r\\n675: \\r\\n676:     Context.Write \\"</span>\\" & vbCrLf\\r\\n677:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n678: \\r\\n679:  end if \\r\\n680: \\r\\n681:     Context.Write \\"\\" & vbCrLf\\r\\n682:     Context.Write \\"                \\" & vbTab & \\"</span>\\" & vbCrLf\\r\\n683:     Context.Write \\"                \\"\\r\\n684: \\r\\n685:  end if \\r\\n686: \\r\\n687:     Context.Write \\"\\" & vbCrLf\\r\\n688:     Context.Write \\"            </td>\\" & vbCrLf\\r\\n689:     Context.Write \\"        \\"\\r\\n690: \\r\\n691: else\\r\\n692: \\r\\n693:     Context.Write \\"\\" & vbCrLf\\r\\n694:     Context.Write \\"            <td class=\\"\\"zpSO-PictureGallery-ThickBox-td2\\"\\" style=\\"\\"vertical-align:top\\"\\">&nbsp;</td>\\" & vbCrLf\\r\\n695:     Context.Write \\"        \\"\\r\\n696: \\r\\n697: end if\\r\\n698: \\r\\n699:     Context.Write \\"\\" & vbCrLf\\r\\n700:     Context.Write \\"    \\"\\r\\n701: \\r\\n702: \\r\\n703:         index = index + 1\\r\\n704:     next\\r\\n705:     \\r\\n706: \\r\\n707:     Context.Write \\"\\" & vbCrLf\\r\\n708:     Context.Write \\"</tr>\\" & vbCrLf\\r\\n709:     Context.Write \\"\\"\\r\\n710: \\r\\n711: next\\r\\n712: \\r\\n713:     Context.Write \\"\\" & vbCrLf\\r\\n714:     Context.Write \\"</table>\\" & vbCrLf\\r\\n715:     Context.Write \\"</div>\\" & vbCrLf\\r\\n716:     Context.Write \\"\\"\\r\\n717: \\r\\n718: end sub\\r\\n719: \\r\\n",
	ExcepInfo=EXCEPINFO
	{
	},
	LineNumber=588,
	ColumnNumber=12,
	SourceLine="",
	SourceContext=0,
	Description="Datenbank \\'\\' konnte nicht geöffnet werden. Entweder wird die Datenbank nicht von Ihrer Anwendung erkannt, oder die Datei ist beschädigt.",
	Data=
	[
	]
,
	InnerException=null,
	TargetSite=RuntimeMethodInfo: Run,
	StackTrace="   bei ZetaProducer.RuntimeBusinessLogic.Code.Scripting.BaseInterpreter.Run()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.FormatGridItem()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderMacrosBase.Process(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderDispatcher.doProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.renderArticle(IWorkflowEnabledItem article)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.buildArticleFullText(WebPageItem article)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.getFullText(WebPageItem article)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.generateRssDocument()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Rss.RssGenerator.CreateRss()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderEngine.createRss(WebPage page, VersioningVersion versioningVersion, TemplateProject templateProject)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Core.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.Simple.SimpleBuildPublishForm.doWorkBuild(Object sender, DoWorkEventArgs e)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.Common.AsyncRenderGuiBinder._bw_DoWork(Object sender, DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)",
	HelpLink=null,
	Source="ActiveScriptSite.ScriptError"
}